MODULE modB
    IMPLICIT NONE
    
    CONTAINS
    
! This function adds two numbers: c = b * a   
    SUBROUTINE multiply(a,b,c)
        IMPLICIT NONE
        REAL*8, INTENT(IN)  :: a    ! 1st argument
        REAL*8, INTENT(IN)  :: b    ! 2nd argument
        REAL*8, INTENT(OUT) :: c    ! result
        
        c = b * a
        
    END SUBROUTINE multiply



! This function subtracts two numbers: c = b / a
    SUBROUTINE divide(a,b,c)
        IMPLICIT NONE
        REAL*8, INTENT(IN)  :: a    ! 1st argument
        REAL*8, INTENT(IN)  :: b    ! 2nd argument
        REAL*8, INTENT(OUT) :: c    ! result
        
        c = b / a
        
    END SUBROUTINE divide

END MODULE modB